100 REM   PROGRAM FILE COPIER 128  TIM SWEENEY
110 POKE 58,5    :REM RESERVE SPACE IN BANK 1
120 CLR
130 PRINT"PRG FILE COPIER"
140 PRINT"INSERT MASTER DISK, PRESS KEY": GET(null) A$
150 INPUT"FILE NAME";FL$: (null)
160 (null) (FL$),B1
170 SA=PEEK(172)+PEEK(173)*256 :REM  GET STARTING ADDRESS
180 EA=PEEK(174)+PEEK(175)*256 :REM  GET ENDING ADDRESS
190 PRINT"INSERT TARGET DISK, PRESS KEY": GET(null) A$
200 (null): (null) (FL$),B1,P(SA) TO P(EA)
210 PRINT"COPY COMPLETED. ANOTHER? Y";: INPUT"[157][157][157]";A$
220 IF A$="Y" THEN 120
230 POKE 58,255: CLR   :REM  RESTORE BANK 1